5 REM INSCR$
7 REM SYS SA,X,Y,LENGTH
8 REM RETURNS STRING IN FIRST DEFINED VARIABLE
10 SA=49152
20 EA=SA+119
30 HS=INT(SA/256):LS=SA-(HS*256)
40 HE=INT(EA/256):LE=EA-(HE*256)
50 FORI=SA TO EA:READD:POKEI,D:NEXT
60 SYS57812"INSCR$.O",8:POKE193,LS:POKE194,HS:POKE174,LE:POKE175,HE:SYS62954
70 END
80 :
100 DATA 32,241,183,142,104,192,32,241
110 DATA 183,142,103,192,32,241,183,142
120 DATA 105,192,169,216,133,251,169,3
130 DATA 133,252,160,255,24,165,251,105
140 DATA 40,133,251,165,252,105,0,133
150 DATA 252,200,204,103,192,208,237,162
160 DATA 0,172,104,192,177,251,140,106
170 DATA 192,201,0,8,41,127,160,4
180 DATA 136,217,107,192,176,250,89,111
190 DATA 192,40,172,106,192,157,115,192
200 DATA 200,232,236,105,192,208,221,160
210 DATA 2,138,145,45,200,169,115,145
220 DATA 45,200,169,192,145,45,96,0
230 DATA 0,0,0,128,96,64,32,192
240 DATA 32,0,64,0,0,0,0,0
250 :
10000 OPEN15,8,15,"S0:INSCR$ CREATOR":CLOSE15:SAVE"INSCR$ CREATOR",8:END